inherited fmExceldenUnityeSevkAdresAktarma: TfmExceldenUnityeSevkAdresAktarma
  Tag = 429
  Left = 403
  Top = 209
  Caption = 'Excel den Unity e Sipari'#351' ve Sevk Adresi Aktarma'
  ClientHeight = 510
  ClientWidth = 832
  KeyPreview = True
  Scaled = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PnlAktar: TPanel [0]
    Left = 0
    Top = 397
    Width = 832
    Height = 93
    Align = alBottom
    TabOrder = 1
    Visible = False
    DesignSize = (
      832
      93)
    object Label4: TLabel
      Left = 3
      Top = 9
      Width = 86
      Height = 13
      Caption = 'Aktar'#305'm Carisi :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object btYeni: TBitBtn
      Left = 142
      Top = 26
      Width = 126
      Height = 28
      Caption = 'Yeni'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = btYeniClick
    end
    object btSablon: TBitBtn
      Left = 5
      Top = 27
      Width = 126
      Height = 28
      Caption = #350'ablon List.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = btSablonClick
    end
    object lcCarikodu: TwwDBLookupCombo
      Left = 94
      Top = 4
      Width = 175
      Height = 21
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'Firma'#9'50'#9'Firma'#9'F')
      LookupTable = aqCariList
      LookupField = 'carikod'
      Style = csDropDownList
      Navigator = False
      TabOrder = 2
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
      OnChange = lcCarikoduChange
    end
    object btSevkAdresimport: TBitBtn
      Left = 5
      Top = 58
      Width = 126
      Height = 28
      Caption = 'Sevk Adres '#304'mport'
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = btSevkAdresimportClick
    end
    object btSevkAktar: TBitBtn
      Left = 694
      Top = 14
      Width = 119
      Height = 68
      Anchors = [akTop, akRight]
      Caption = 'Sevk Adr Aktar'
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      TabStop = False
      WordWrap = True
      OnClick = btSevkAktarClick
    end
    object btSevkAdresKontrol: TBitBtn
      Tag = 11
      Left = 142
      Top = 58
      Width = 126
      Height = 28
      Caption = 'Sevk Adres Kontrol'
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = btSevkAdresimportClick
    end
    object pnlililce: TPanel
      Left = 301
      Top = 20
      Width = 293
      Height = 69
      BevelOuter = bvNone
      TabOrder = 6
      Visible = False
      object lilceil: TLabel
        Left = 10
        Top = 22
        Width = 20
        Height = 13
        Caption = 'ililce'
      end
      object lcilceil: TwwDBLookupCombo
        Left = 47
        Top = 19
        Width = 138
        Height = 21
        DisableThemes = False
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'NAME'#9'41'#9'NAME'#9#9)
        LookupTable = aqAdress
        LookupField = 'NAME'
        Style = csDropDownList
        Navigator = False
        TabOrder = 0
        AutoDropDown = True
        ShowButton = True
        UseTFields = False
        AllowClearKey = True
      end
      object btDegistir: TBitBtn
        Left = 199
        Top = 5
        Width = 75
        Height = 25
        Caption = 'De'#287'i'#351'tir'
        TabOrder = 1
        OnClick = btDegistirClick
      end
      object btVazgec: TBitBtn
        Left = 199
        Top = 33
        Width = 75
        Height = 25
        Caption = 'Vazge'#231
        TabOrder = 2
        OnClick = btVazgecClick
      end
    end
  end
  object GroupBox1: TGroupBox [1]
    Left = 0
    Top = 0
    Width = 832
    Height = 52
    Align = alTop
    Caption = 'Unity '#350'irket Ayar'#305
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Label14: TLabel
      Left = 6
      Top = 22
      Width = 66
      Height = 14
      Caption = 'Kullan'#305'c'#305' Ad'#305
      Transparent = True
    end
    object Label15: TLabel
      Left = 217
      Top = 22
      Width = 26
      Height = 14
      Caption = #350'ifre'
      Transparent = True
    end
    object bbaglan: TButton
      Left = 378
      Top = 12
      Width = 88
      Height = 34
      HelpType = htKeyword
      Caption = 'Ba'#287'lan'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = bbaglanClick
    end
    object usernamek: TEdit
      Left = 80
      Top = 19
      Width = 121
      Height = 22
      HelpType = htKeyword
      HelpKeyword = 'UserName'
      TabOrder = 0
    end
    object Passwordk: TEdit
      Left = 251
      Top = 19
      Width = 121
      Height = 22
      HelpType = htKeyword
      HelpKeyword = 'UserPassword'
      PasswordChar = '*'
      TabOrder = 1
    end
  end
  object StBar: TfcStatusBar [2]
    Left = 0
    Top = 490
    Width = 832
    Height = 20
    Panels = <
      item
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        Name = 'Panel0'
        Tag = 0
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '50'
      end>
    SimplePanel = False
    StatusBarText.CapsLock = 'Caps'
    StatusBarText.Overwrite = 'Overwrite'
    StatusBarText.NumLock = 'Num'
    StatusBarText.ScrollLock = 'Scroll'
  end
  object AGrid: TAdvStringGrid [3]
    Left = 0
    Top = 52
    Width = 832
    Height = 345
    Cursor = crDefault
    TabStop = False
    Align = alClient
    ColCount = 2
    DefaultRowHeight = 21
    FixedCols = 0
    RowCount = 1
    FixedRows = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing, goEditing, goTabs]
    ParentFont = False
    PopupMenu = PopupMenu1
    ScrollBars = ssBoth
    TabOrder = 3
    HoverRowCells = [hcNormal, hcSelected]
    OnCustomCellDraw = AGridCustomCellDraw
    OnFooterPaint = AGridFooterPaint
    ActiveCellFont.Charset = DEFAULT_CHARSET
    ActiveCellFont.Color = clWindowText
    ActiveCellFont.Height = -11
    ActiveCellFont.Name = 'Tahoma'
    ActiveCellFont.Style = [fsBold]
    AutoNumAlign = True
    AutoSize = True
    ControlLook.FixedGradientHoverFrom = clGray
    ControlLook.FixedGradientHoverTo = clWhite
    ControlLook.FixedGradientDownFrom = clGray
    ControlLook.FixedGradientDownTo = clSilver
    ControlLook.DropDownHeader.Font.Charset = DEFAULT_CHARSET
    ControlLook.DropDownHeader.Font.Color = clWindowText
    ControlLook.DropDownHeader.Font.Height = -11
    ControlLook.DropDownHeader.Font.Name = 'Tahoma'
    ControlLook.DropDownHeader.Font.Style = []
    ControlLook.DropDownHeader.Visible = True
    ControlLook.DropDownHeader.Buttons = <>
    ControlLook.DropDownFooter.Font.Charset = DEFAULT_CHARSET
    ControlLook.DropDownFooter.Font.Color = clWindowText
    ControlLook.DropDownFooter.Font.Height = -11
    ControlLook.DropDownFooter.Font.Name = 'MS Sans Serif'
    ControlLook.DropDownFooter.Font.Style = []
    ControlLook.DropDownFooter.Visible = True
    ControlLook.DropDownFooter.Buttons = <>
    Filter = <>
    FilterActive = True
    FilterDropDown.Font.Charset = DEFAULT_CHARSET
    FilterDropDown.Font.Color = clWindowText
    FilterDropDown.Font.Height = -11
    FilterDropDown.Font.Name = 'MS Sans Serif'
    FilterDropDown.Font.Style = []
    FilterDropDownClear = '(All)'
    FixedAsButtons = True
    FixedColWidth = 12
    FixedFont.Charset = DEFAULT_CHARSET
    FixedFont.Color = clWindowText
    FixedFont.Height = -11
    FixedFont.Name = 'Tahoma'
    FixedFont.Style = [fsBold]
    FloatFormat = '%.2f'
    FloatingFooter.BorderColor = clRed
    FloatingFooter.FooterStyle = fsCustomPreview
    FloatingFooter.Visible = True
    HTMLSettings.AutoPreview = True
    MouseActions.RowSelect = True
    Navigation.AlwaysEdit = True
    PrintSettings.DateFormat = 'dd.mm.yyyy'
    PrintSettings.Font.Charset = DEFAULT_CHARSET
    PrintSettings.Font.Color = clWindowText
    PrintSettings.Font.Height = -11
    PrintSettings.Font.Name = 'MS Sans Serif'
    PrintSettings.Font.Style = []
    PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
    PrintSettings.FixedFont.Color = clWindowText
    PrintSettings.FixedFont.Height = -11
    PrintSettings.FixedFont.Name = 'MS Sans Serif'
    PrintSettings.FixedFont.Style = []
    PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
    PrintSettings.HeaderFont.Color = clWindowText
    PrintSettings.HeaderFont.Height = -11
    PrintSettings.HeaderFont.Name = 'MS Sans Serif'
    PrintSettings.HeaderFont.Style = []
    PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
    PrintSettings.FooterFont.Color = clWindowText
    PrintSettings.FooterFont.Height = -11
    PrintSettings.FooterFont.Name = 'MS Sans Serif'
    PrintSettings.FooterFont.Style = []
    PrintSettings.PageNumSep = '/'
    ScrollWidth = 16
    SearchFooter.FindNextCaption = 'Sonraki'
    SearchFooter.FindPrevCaption = #214'nceki'
    SearchFooter.Font.Charset = DEFAULT_CHARSET
    SearchFooter.Font.Color = clWindowText
    SearchFooter.Font.Height = -11
    SearchFooter.Font.Name = 'MS Sans Serif'
    SearchFooter.Font.Style = []
    SearchFooter.HighLightCaption = 'Highlight'
    SearchFooter.HintClose = 'Close'
    SearchFooter.HintFindNext = 'Find next occurence'
    SearchFooter.HintFindPrev = 'Find previous occurence'
    SearchFooter.HintHighlight = 'Highlight occurences'
    SearchFooter.MatchCaseCaption = 'Match Case'
    ShowModified.Enabled = True
    SortSettings.IndexShow = True
    Version = '6.2.1.1'
    ColWidths = (
      12
      12)
  end
  inherited alKeyControl: TActionList
    Left = 776
    Top = 504
  end
  inherited XPManifest: TXPManifest
    Left = 840
    Top = 504
  end
  object oDlg: TOpenDialog
    Filter = 'Excel Dosyas'#305'|*.Xls'
    Left = 583
    Top = 8
  end
  object aqUnitySiparis: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 584
    Top = 88
  end
  object dsUnitySiparis: TDataSource
    DataSet = aqUnitySiparis
    Left = 640
    Top = 88
  end
  object aqUnityTemp: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 584
    Top = 144
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 216
    Top = 156
    object Degistir: TMenuItem
      Caption = 'De'#287'i'#351'tir'
      OnClick = DegistirClick
    end
    object ExportExcel1: TMenuItem
      Caption = 'Export Excel'
      OnClick = ExportExcel1Click
    end
  end
  object SDlg: TSaveDialog
    DefaultExt = 'xls'
    Filter = 'Excel Files|*.xls'
    Title = 'Excel Olarak Kaydet'
    Left = 640
    Top = 8
  end
  object aqUnitySevkAdres: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 584
    Top = 200
  end
  object acUnityTemp: TADOCommand
    Connection = dm.Connect_Unity
    Parameters = <>
    Left = 664
    Top = 196
  end
  object aqUnityTemp2: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 648
    Top = 144
  end
  object cnnnExcel: TADOConnection
    LoginPrompt = False
    Left = 36
    Top = 103
  end
  object adoExcel: TADOQuery
    Connection = cnnnExcel
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select bilisnocik,makinano from fatharhar '
      'where serinos=:serinos')
    Left = 36
    Top = 159
  end
  object dsExcel: TDataSource
    DataSet = adoExcel
    Left = 36
    Top = 215
  end
  object OpenExcel: TOpenDialog
    DefaultExt = '.xls'
    Filter = 'Excel Dosylar'#305'|*.xls'
    Left = 36
    Top = 271
  end
  object aqCariList: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'select  c.carikod,c.carikodu,c.FirmaAdi +'#39' - '#39'+c.Carikodu Firma,' +
        'unitycarikod,S.*'
      'from TblUnitySevkAdresSablon S '
      'join Cari C on (S.CARIKOD=C.Carikod)')
    Left = 214
    Top = 273
  end
  object aqAdress: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'SELECT TOP 1 LOGICALREF,NAME,CODE FROM L_CITY')
    Left = 585
    Top = 260
  end
  object aqFixList: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from TblSevkAdresFix')
    Left = 649
    Top = 263
  end
end
